AUTOLISPJ fka **** 

c^a j VBA '. ObjectARX J^> ' Autodesk jA> a-^UJ! jJI iiAil ls^I <^a 

. liklSSV lAlj-a t.Uiijl jj^b aJ*Sj jl Aj (JSj t&Lq 4 i£ jj^l ,J AJaii liljLaJ La J£ 

Lisp is a programmable programming language. 

dll njbaxa SI ^jj^La (jja. (j^i ^jiill j ^cl L all eliill CllliJ .laJ j lisp Ail (j-o A 3J uj a ^gA j 

.1986 J± AUTOCAD 2.18 AUTOLISP Jl jj^ Jjl j ' 

LISt Processing. 
Or LISt Programming 

jl i a3a ^ IgJl Jli j 

"Lots of Stupid Parentheses". 

. W-l compiled fa V <^±! Jl o^- M cr"*-^ .interpreted Ail ^ j 



j^l TOOLS A^li(> 
LOAD APPLICATION 



Load/Unload Applications 



Look in: 



s p 



QlARCOMP; 




Qarea 




j|2)ATT5TRIP 








Qbreakall 




l2)circle2pl 




<_ 


> 



File name: 



Load 



Files of type: AutoCAD Apps (" arK^.lsp^.dvb^.dbK^.vlK; 1 . v 



Loaded Applications 



History list 



File Path 

acad.mnl C:\Documentj and Seitings\selinAAJMl 

acad2007.L... C \Program FilesWrloCAD 2007W 

acad2007do.. CAProgram Files WitoCAD 2007\su. 

AcApp.arK CAProgram FilesWitoCAD 2007\ 

AcCamera.arx CAProgram FilesWutoCAD 2007\ 

AcDblClkEdi... C:\ProgramFiles\AutoCAD 2007\ v 

< " " "" \" > 



□ Add to History 

Unload 
Startup Suite 



Contents... 



Close 



Help 
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LOAD jSil 
lWII a^Luia Windows Explorer i> j' 



CONTENTS 



SI 



Startup Suite 



List of applications: 



File 



Path 



http://draftsman.wordpress.com 







Add... 




Remove 




Close 


Help 





jA\Ji\ jkui (^i aapload j 1 



Command: appload 



<Uc cLi^ i_sL ja j acaddoc.lsp jl acad.lsp ^ l g» > ;-ri (jj^iill Aic. jJjI <ij£l j 

support tliljLt" ^ (Jji ajI^j Aic jIS jj^I 

autolisp AaS Jgtjfl 

■ all j ojjj^II L_S J^)^-!! CHi ' . ''".jl JJ^I 4j<J (JjSj ^(1 
^jj j (_gjunll jij^l -H«J (C jl ma ^ IauI (_>J j3*)/I .lit (jj^J (jl V j (_>ul j3l ^ ' ■ hjjl jpVI Ail ' ■ uSj (2 

. Vji aj^wi ^i j^ 1 e 4 '-J- 01 *^ 

Command: (* (+ 3 4) (+ 2 5)) 

49 

A • aSI ' j3l lilLiA (jl tiljjaJ ^--oLi^jll ij^ £ (_>u j3 liljj <ULi. ^ 



Command: (* (+ 3 4) (+ 2 5) 



Vjl -UUI jl > jll ^ (3 



Command: (+ 4 2) 
6 



l-ic La jl i_S^a. (jj^J (jl (j^-aJ jjiisJI (4 

' ; " \ 



2 



I All (jl ' ■ laj j 



ll jjxiall s-Laj-ul ^^Ac ^JiLal 



AMRSELIM 

WHOAMI 

ENGWEB13 



12 = o-" 4-*js jjSj 10 = £ uj^ j 5 = lP' 3 uj^ 



Command: (+|4 2) 
6 



BAD FUNCTION aJUj V jjiUI j aJIaII II J-aI Ait 



Command: (+4 2) 
?ad functi 



^a^ic- 4Aj3 ale (JjJxJ Ait (6 



Command: (+42) ;comment 
6 



jjAiijlLj AjjlaJI sj^ialb ojj^ij (j^oJ j (_$jl*JI ' Lall Lsp 

mnl.* 

<UVI J <.i.,nl i ala Vlx Fas 

lsp fas ^ vlx J"^.: JiLS jjVI jli aIAjJI tliblAlaVb ^Vl dULi di!>lj lip] jl£ lil j 

( "Laic. <xiia]l (Ja^J . IAjj ^j^ajl V dljS (jl j) ' ■ LlujISI i 'a^ jjiiil! j 

visual lisp editor ^\ tools - 
: Jlill j*VI t_uSI console Jl ^ - 
("vlisp-compile 'lsa "d:/try.lsp" "d:/try.fas) 

jSinall ' flLall jLuiA ( _ s _jlil31 j a jj« i_i jt^oJI ' alttll jl i a « J j^l J jVI jLuiaII 
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ENGWEB@GMAIL.COM ^jg ^jUj tjt 
www.amrselim.net Ajj-iAlt LgjjSI jt 
http://groups.google.com/group/DRAFTSMAN ^"^t <^ ^J 1 ^ 1 J 1 
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Autolist fcg 

command line ^jjVU u-aUJI jJjVI jkui ^ o^JiUa jJ jVI aJ3& u^j(1 



■ AutoCAD Text Wi 


clow - Drawing 1 .dwg 


urn® 


Edit 


. "lie") (ioo . 

"AcDbL ine") [10 


"AcDbEntity") [67 . 0) (410 . "Model") [S . "0") (100 . 

891.592 1203.92 □.□] [11 1789.65 627.174 □.□) [210 0.0 0.0 1.0)) 




Command : 
Automatic save 


□ C:\DOCUME~l\seliiii\LOCALS~l\Temp\DEawingl 1 1 8467. svS ... 




Command: | 




< > 



lsp Jl TXT 0* Ji^t" txt J j-l jVI j\ (2 




w.lsp 

folder option ^ tools Jl i_iAij jaIL jjc. j!j1»VI jlS lil j 





urites 


| Help 






Map Network Drive,,, 
Disconnect Network Drive, , , 
Synchronize,., 










Folder Options.,. 





I 



view 



Jajoiil ^Lat (j-o "^ri^i" <Lo!>Lc AJIJlj p jij pJ 

Hide extensions for known file types 
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Folder Options 



eh 



General View 



File Types Offline Files 



Folder views 



You can apply the view (such as Details or Tiles) that 
you are using for this folder to all folders. 



Apply to AJI Folders 



Reset All Folders 



Advanced settings: 



fr^l Files and Folders 

Automatically search for network folders and printers 
Display file size information in folder tips 

Display simple folder view in Explorer's Folders list 

1 I Display the contents of system folders 

Display the full path in the address bar 

1 I Display the full path in the title bar 
I I Do not cache thumbnails 

IrH Hidden files and folders 

O Do not show hidden files and folders 
Show hidden files and folders 

□ 



Hide extensions for known file types 



Restore Defaults 



□ K 



Cancel 



Apply 



4 * u ^%\\ g 



(defun c:<=- W^jj o^y 








) 












(defun c:RECl() 
(setq a (getpoint)) 
(setq b (getpoint)) 


(command "rectangle" 


ab) 


) 



visual lisp editor ^> jj J (3 

Visual Lisp Editor Autolisp j^i Tools 
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U} Visual LISP for AutoCAD «Drawing1 .dwg> - [Visual LISP Console] 



jfrbjl File Edit Search View Project Debug Tools Window Help 



VISUAL LISPFOR AUTOCAD 



□LI® 



Be? a * 



f j r jr 

r\ — 



^ ^ @ & ^ & <-) , 



Q £L-. [-1 ^ n, a/ 



<!»»] 



L 00001 C 0000* 



Visual LISP console window 



:^jjluiaJt Jl jilt 

ojajIxo j-ol jVI jJajui lfrb\j£ (j^-oJ j ' ■ Luul jjVI 4jJ Ajlliill AJloVI 

+ |^"?^ * 

. ^till (ijll ^ JjVI pSjll *js ^ JliJ! 

V jl ^-a^JI A^y^C ' ■ -> tllli! (_>u£c-) Lijl ^1*3 1 £a 



Command: (+ 1 2) 




3 






Command: (-4 1) 




3 
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Command: (- 4 4) 




Command: (- 4 -4) 
8 



^jUII (j^s ciilliill ^^A 3 j>j J jVI (j-o ^lill C-^ 3 f^j' < -^->^i C-^ 3 



Command: (-9 4 2) 
3 



Command: (* 4 10) 
40 



Command: (* 3 7 100) 
2100 



Command: (* 2 -3) 
-6 



/ A ajjSSl • 
^ji.) ^Jc- 4 a l a3 



Command: (/ 21 3) 
7 



Command: (/ 8 4 2) 
1 



kl JUL. 



Command: (/ 22 3) 
7 



integer u.:°.:°^ cIh-^j u£ 3-*mSlt (j! clua jj.xti iiJaI»j * . Luui jjVI 4j<J (jl a^j (JjjLluII (Jlilall ^ 

jj, „<\1 4 AaJjjSI U3 j» laJ j double (J- ^-*-^ jiA ( _ s it 4 aiM Ait j 



Command: (/ 21.2 3) 
7.06667 



lW " J UJ"^ UJ"^ gjliJl (jli ^°/ Q ^ CS^" u JJ* ' ^Ajjj3 -IOC j 



Command: (/ 2 4) 




Command: (/2.1 4) 
0.525 
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1 kaJl <ULuij Ul laJ Aixii .laJ jll (j^i (Jal .Hull jl£ Ijl j°. all <iaAI sUij^l <_Laj j 

Command: (* .2 5) 

; Error: misplaced dot on input 

lg-agij (jl J a.la.1 j *UiK Ifrjj ( _ g I& l^lj'a. .A Sfl j aJUI j ^ jll jjj AiLa-a lil JJ 4jaA I j 

Command: (+2 5) 

; Error: no function definition: *2 



j) ^ L>"' (Ji.1.3 La U^H fJ^J 2"°^-^ 'j' t ~^ a • t "^' n »N ' ■ 'j'j' j jS^I AjxAI cs - ^-^ (JliLall 

Command: (* 3(+ 5 6)) 
33 



j 4iL_bl <lb • 

Command: (1+ 6) 
7 



+2 jxuiVI li^J «UU -3^.jj V 4jl Jjii aJLuij (J laJ jll JJC jL\ .lie j 

Command: (2+ 6) 

; Error: no function definition: 2+ 



Command: (1-6) 
5 



gcd <!b • 

aJc. 4 aiM (jj^ajll <ulc (JjIj ^iij t . Luul ^Ijjalj <UI.JI o^a 

Command: (gcd 100 15) 
5 



zerop • 

t gjUll jjSj jL all 4JU. ^3 

nill gSbll uj£j 1^* j 

Command: (zerop 0) 
T 



Command: (zerop 9) 




Nil 






abs <JWl • 




(< ■ la ja! (—llLuill ■ ■ llSS) ^SjU S ajiill ( _ r kxj j 


Command: (abs -4) 




4 
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Command: (abs 4) 
4 



exp • 

Command: (exp 1) 
2.71828 



Command: (exp 4) 




54.5982 




AJUll UaaJl AJLjj Lil j^ki £3 jlall t ilUj C 




Command: (exp 5 2) 




; Error: too many arguments 






EXPT • 




,j JjVI J>3j5l S-lJJ^a (Jj-aLi. tjiasJ J 


Command: (expt 2 3) 




8 










v^N 1 'nil*' j 


.The bitwise NOT(l's 


complement) of the argument 


Command: (~ 4) 




-5 






Command: (~ -4) 




3 






MAX *JIj1I • 






Command: (MAX 950 314) 




950 






MIN UUI • 






Command: (MIN 3000 1000) 




1000 






REM «UI • 




j5U (jSiiJI)REMINDER 






Command: (REM 3 4) 




3 
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Command: (REM 4 4) 











Command: (REM 6 4) 




2 






Command: (rem 42 16) 




10 






FIX yi-JI • 






Command: (FIX 3.2) 




3 




Command: (FIX 3.7) 




3 






FLOAT *JIj1I • 






Command: (FLOAT 3.2) 




3.2 






Command: (FLOAT 3) 




3.0 






? oAjlill La; (JljjJI (jj^J LaJJ J 




(jlS j (8%^ J^l (j^C- ^°.:°^ -^AC ajjiflj LaAic (JA 


Command: (/ 22 3) 




7 




FLO\T 2,u11 -KM ^ Ji*.^| JJi 


Command: (/ (FLOAT 22) 3) 




7.33333 






LOG ^IjII • 






Command: (LOG 1) 




0.0 






Command: (LOG 10) 




2.30259 






Command: (LOG 2) 




0.693147 
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SQRT *JU! • 



Command: (SQRT 144) 




12.0 








Command: (sqrt -4) 




; error: function undefined for argument: -4 






sin ^ • 










Command: (sin 165) 




0.997797 







cos <^ • 










Command: (cos 165) 




-0.0663369 






atan • 






(* 




Command: (atan 1) 




0.785398 




Command: (atan 1 2) 




0.463648 





angle • 

Command: (angle '(1.0 1.0) '(1-0 4.0)) 
1.5708 

Command: (angle '(5.0 1.33) '(2.4 1.33)) 
3.14159 



getpoint aJ\ aj ajIxIuiVIj ts^j^ ^u^i ^'.^'^ u^-s 

Command: (setq a (getpoint)) 
Command: (setq b (getpoint)) 
Command: (angle c b) 
0.724992 



minusp • 

t i—ilLoi jl£ lil 
nil cr^«-i ( t ± ?' j- ^ 

Command: (minusp -1) 
T 
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Command: (minusp 13) 
nil 



inters ^ • 



Command: (inters abed) 
(-443.205 399.475 0.0) 



AjJala. S^. rt'.ti lilnill J 



Command: (= 3 3.0) 
T 



Command: (=314 950) 
nil 



Command: (= "omar" "omar") 
T 



Command: (= "omar" "bush") 
nil 



Command: (= "AHMED" "AHMED" "SHARON") 
nil 



Command: (/= "omar" "omar") 
nil 



Command: (/= "omar" "us") 
T 



Command: (< 10 20) 
T 



Command: (< 10 20 30) 
T 



Command: (< 3 4 5 5) 
nil 



Command: (< "e" "t") 
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T 




Command: (<= 5 8) 




T 






eq • 




V ~l ^jlljt m"^ jjv'tiutiull 








nil /*uj oLuiLo uc. 

Alii t r^r i 


Command- Cseta a Yl 2) c Y2 3)) 




(2 3) 




Command: (eq a c) 




nil 




Command: (setq a b) 




(12) 




Command: (eq a b) 




T 





equal ^1 • 

(setq f 1 '(a b c)) 
(setq f2 '(a b c)) 
(setq O f2) 
(setq a 1.123456) 
(setq b 1.123457) 
Command: (equal f 1 f3) 
T 

Command: (equal f3 f2) 
T 

Command: (equal a b) 
nil 



0.000001 jab on Jjill On uj 1 ^ 0.000001 > abttf l9J^ 



Command: (equal a b 0.000001) 
T 



SUBSTR • 



Command: (SUBSTR "MY NAME AMR SELIM" 9 3) 
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2;. ~\\) A\**l\ "" 
_ 4_i-ajLall i_j jj^JI 3 









Ajlljiall ajflll (j-a ya^-a 






Command: (setq xl(list 1 2 3 4)) 


(1 2 3 4) 






strcat • 






(strcat " no god but allah " 


" Mohamed messenger of allah ") 


"no god but allah Mohamed messenger of allah" 




car iit^t • 






Command: (carxl) 




1 






list 1 4 1 nili n J ja j (jj^ 4 (j^-m j 




' <t 1 1 (in I ^ 'A J l*1 1^ 4 \ in\in\| 4 it 1 1 14, jj^ ^1 


Command: (car '(3 4 5)) 




3 






Command: (car '((3 4) 5)) 




(3 4) 






Command: (car '()) 




nil 






cadr fcuit • 






Command: (cadr xl) 




2 






caddr IflJM • 






Command: (caddrxl) 




3 






cdr iflJM • 




J jVI fijll jjAj 4 1ml mil tJ^Jt 


Command: (cdrxl( 




(2 3 4) 
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nth • 

lllll ^-j'-j-"' m 






Command: (nth 4 '(2 5 4 7 9 6)) 




Q 






r*r\r\c aJUI • 






Command: (cons 'a '(b c d)) 




(ABCD) 






annlv <JUI • 






Command: (apply '* '( 2 3 4 )) 




24 





Command: (apply 'strcat '("a" "b" "c")) 
"abc" 



APEND *Jb • 



Command: (append '(a b c) '(d e f)) 
(A B C D E F) 



Command: (append '((a) (b) (c)) '((d) (e) (f))) 
((A) (B) (C) (D) (E) (F)) 



Command: (append '( e gypt sudan) '(Iraq syria) '(lebnan philsten) ) 
(EGYPT SUDAN IRAQ SYRIA LEBNAN PHILSTEN) 



reverse ^ • 

4_ia3^)]| A 1 l jiI l nil fjj n^T ; ^ jii j 



Command: (setq a '(1 2 3 4 5 6)) 
(1 2345 6) 
Command: (reverse a) 
(6 5 43 2 1) 





member ^ • 


j. Vm\I JjI 2 ,/ijll 21.1,1.1,11 1 ',,U. - ; 


j 4_lo3^)]I 4 1 iiili nil ^sjjil j j i aJC Ailj ^^A j 


Command: (setq a '(2 3 4 5 6)) 




(2345 6) 




Command: (member 4 a) 




(4 5 6) 




n [\ U.L.I 2 ,/ijll 21..,1..,1 




Command: (member 1 a) 




nil 
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listp • 
nil li* jjc- jlS li! j 



Command: (listp a) 
T 

Command: (listp t) 
nil 



strlen ^ • 

jj-o^l j j dllit moll IgjS Laj ALaaJl i_i JJ^- 33c ~n»'i j 



Command: (strlen "destory israil") 
14 



atof • 
float cs^- j^j o^l (Jjj=^ 
l^ira t_i jl ^ 'j V j aJc jjjj V ciiULaaJI (jli string ^ (_s-lc- 314 (J^° 



Command: (atof "2.2") 




2.2 






atoi <3b • 






Command: (atoi"2.2") 




2 





rtos ^ • 

Command: (rtos 2) 

^^^^^^^ 

cvunit ^ • 



Command: (cvunit 1 "minute' 


"second") 


60.0 




Command: (cvunit 1 "gallon" 


"furlong") 


nil 




Command: (cvunit 1 .0 "inch" 


"cm") 


2.54 




Command: (cvunit 1.0 "acre" 


"sq yard") 


4840.0 




Command: (cvunit '(1.0 2.5) " 


ft" "in") 


(12.0 30.0) 




Command: (cvunit '(12 3) "ft 


' "in") 
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(12.0 24.0 36.0) 



type • 

ill p^jj 1 ilJa»J j 



Command: (SETQ A 2) 




Command: (TYPE A) 




INT 






Command: (SETQ A "AMRSELIM") 




Command: (TYPE A) 




STR 






princ • 






Command: (princ "pj^ ^ V) 








AjAi. jU, ^ic. S AjSII ^Jab (Jat=J n\ ^iL^al ij^-<y j 


Command: (princ "good \n friend") 




good 




friend 





Command: (princ "father come \t hide") 




father come hide 






ALERT ^iJll • 




^ l4."w,..«ll 4 11 ,„j jl g Uil 


Command: (ALERT j 41 



COMMAND KM • 

jl Jai aUtolisp (JailU ^AaJLuiJ jl£jj^l J-oljl (j- J*^' liltSA j jlS jJ^I _>«ljl eUaC-V ^jA j 

1 



Command: (COMMAND "COPY") 






Select objects: 








layout <JI modelJ 1 




Command: (command "tilemode" 0) 




model layoutJl 




Command: (command "tilemode" 1) 



18 



WWW.AMRSELIM.NET ^ 



i a 1'* 11 sLlujII 4jjA« 



Command: (setq a (getpoint)) 




Command: (setq b (getpoint)) 




Command: (command "line" ab "") 




L>" j"-" 1 


Command: (setq a (getpoint)) 




Command: (setq b (getpoint)) 




Command: (setq c (getpoint)) 




Command: (command "arc" a b c) 





LOAD *JIj1I • 

(LOAD "' J Ait Uai ^JLuj" "<Ua^j Ajjj L_iLJI") 

t_l 1 3 V. jj^ajxluii jl \\ "Li. ' . ' ' ( — ii-o jLuia Ait lillil ' ■ LuuJ jj^l 4j«J / j (J-'aLi. (j-j*- \ 4-»^t 

(LOAD "c:/amrselim/lisp" "I can't see anything , iam blind") 



DEFUN *JIj1I • 

plcAlm^U ^xujI l^jUacI j AJIaII ' °JJ»'^ <_sA J ' ' . lftA« J^J V J (JpUaVI ^jit Jl jAII |>a! (_A j 

Aib DEFIN FUNCTION >-5il ^ j 



Command: (defun s (n)(+l n)) 



JJ*A« LiA n 

aJIa!I 3Uml 



Command: (defun s (/n)( 


)) 






Command: (defun s ( o /m)(. . . 


)) 






Command: (defun s ( )( 


..-)) 





(defun C: HATCH ( ) 
(alert "Using the BHATCH command!") 
(princ "\n OLDHATCH to get to real HATCH command.\n") 
(command "BHATCH") 
(princ) 

) 



(defun C:HATCH ( ) 



:C j HATCH j* a1H\ t . aJIaU Hit I : Jj^l jkJ! 
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3 laJL aJLujj ■ ciJIjH jU, nil 




_.h ,,n ,.| .1 Uf.l • - ,1 ,11 ,U,,,1I 


v^ommanu. ^ueiun (^ommanci zuum 


"f»"Y> 


zoom, Extents j^^J jL> 


jl 1 A .1 ''. . . K r-w n \ . A I I V 1 . 11 *i - 11 M & 

a a 1 LQ 1 ^fJO c Ze A^IU *U!J US \C- (JL1AJI IJm ^—3 


z , e c5jU-=>^l 






setq • 




set-quote > Afol j t jj*j-<J a-ojs aja^j 






Command: (setq x 1) 




1 






Command: (SETQ A 1) 




Command: (SETQ S 2) 




Command: (SETQ E 3) 






Command: (SETQ A 1 




S2 




E3) 




jl 


Command: (SETQ A 1 S 2 E 3) 




Command: (setq a 123) 




123 




Command: (setq b 'a) 




A 






Command: !x 




1 





getpoint <3WI • 



Command: (setq a (getpoint)) 




(-640.261 146.069 0.0) 






getdist aJUI • 


4 IjW.Vi j\ jj^jl^ll I 5 Til 'ill ,VW"l q nUo'ill (_j1-vl A 1*11 




Command: (getdist a) 
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2727.41 



(setq dist (getdist '(1-0 3.5))) 



(setq dist (getdist '(1.0 3.5) "How far? ")) 



a ^Vi. cnW jjjlLaajll Aj.laj iil jj 0^°^ 



(setq dist (getdist)) 



distance • 



Command: (distance a b) 
262.061 



int^U! • 



getint 



(getint "\Enter your age :") 
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4j]HII UaiJI <ULuij 1 iilaaJ j Iftllij V ^}a ■ a aij <_£ jLuii V <Lojii -1 tad Ait j 



Command: (getint) 
frog 

Requires an integer value. 



4jj uii~. <Lo!)lc. Aj aij (JjSj ^Ja ■ a aij (j-o AiV 



Command: (getint) 
15.0 

Requires an integer value. 



Command: (setq num (getint "Enter a number:")) 
Enter a number: 25 



getreal • 



Command: (getreal) 
2.2 



(setq val (getreal "Scale factor: ")) 



getstring ^JIaII • 

jjaJ ailui lA4 (j^i ' " IjjS Ijll ( L_a^)a. 132 ^ ■ '-S'Sf I AaJI j a ^aAmall (j^> (_>^ij ( _ s ic (J jj aall 

Command: (setq q (getstring "it's a good day")) 

it's a good day 

"friday" 



21 



WWW.AMRSELIM.NET ^ 



Command: (setq s (getstring T "Enter filename: ")) 
Enter filename: c:\my documents\vlisp\secrets 
"c:\\my documentsWvlispWsecrets" 



getcorner <JW • 



^(JiJ-i""i« '"U^ a »tMI Soijlill 


i 2 iLmil ilLaYI j jU'il jjiU j - ;<l .^olVj JiL - ;.!,^ a'^s 


Command: (setq b (getcorner a)) 




(5250.86 639.033 0.0) 






ascii • 






Command: (ascii "b") 




98 






Command: (ascii "a") 




97 




Command: (ascii "amr") 




97 






chr • 




(i J dM UlJ=JI sUatl 


Command: (chr 97( 




"a" 






atom <3WI • 






Command: (setq a '(b c d e)) 




(B C D E) 




Command: (atom a) 




nil 




Command: (atom b) 




T 




Command: (atom '(s d f)) 




nil 






eval • 






Command: (setq q 3) 




Command: (eval q) 




3 





Command: (eval (abs -10)) 
10 
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quote <! • 




ojjj£ L_s j^>^JI (J» 7-"' 


Command: (quote q) 




Q 






Command: !'a 




A 




Command: (quote (a b)) 




(AB) 






setvar • 








j-olj^l jiaj-aj <j-aUJI cAJ-s luiVU (j-alaJI cmdecho L&-° 


(setvar "cmdecho" 1) 




CllliLall jUdilj lil] ^ « i aJ ^^jll jl j^JI ClllaJ^o (_pa^)C filedia J 








jljaJl (jj^li-a (j^ajxj V 






(setvar "Media" 1) 




Si-. I ^U\l (Jia A£- jlLa ja\ jl j^JI dllaj^a jj^jC- Cmddia J 








jljaJI (JAlli-a (_^aj*J V 






(setvar "cmddia" 1) 



snap m^II ^l^l f^=4i ji*^ j Snapunit 



(setvar "snapunit" '(12 12)) 



JaSa jj$i> jl j>V»3l -l=y>i ^ iljj^l oliL J£ ^ jpla Taskbar 



Drawingl.dwg £0 AR102-GROUN... 



Command: taskbar 

Enter new value for Taskbar <1>: 



getvar • 



(if (< (getvar "filletrad") 1) 
(setvar "filletrad" 1) 

) 
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Command: (/ 21 (setq q 7)) 
3 

Command: !Q 
7 



(entlast) • 

aj& (jc tlAjLu I 



Command: (entlast) 
<Entity name: 7efb40b0> 



Command: (entlast) 
nil 



Command: (setq a (entget(entlast))) 

((-1 . <Entity name: 7efb40b0>) (0 . "LINE") (330 . <Entity name: 7efb2cf8>) (5 
. "116") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . 
"AcDbLine") (10 891.592 1203.92 0.0) (11 1789.65 627.174 0.0) (210 0.0 0.0 1.0)) 

(JiLa -I laJLoiVI A x 'il uS jj-aj lilLiA j 
(jjlill ^1 1- 

uSISII t j 3 

handle 4^ajall 5 
LINE TYPE Jl H 6 
8 

tiLuJ! 39 

ljjIII 62 

oleJ jIa^I^j 70 
layout f>l model J ^ ^ <-5* <J-*JI ^ 72 
layout uj^ model , 1 ^ U^jc 

Jikill^ 284 



ssget • 



Command: (ssget) 

Select objects: Specify opposite corner: 2 found 
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c o t /"i i a v 1 , a i 1 1-% , * »f^_ u» mi 1^ l-i i i ■» 1 1 * 


Command: (setq q (ssget)) 




OC1CCI UUJCCLa. OUCC11V UUpUalLC CU1I1C1. £ lUUllCi 




Select objects: 
<Selection set: 2> 






Command: m 
MOVE 

Select objects: !q 
<Selection set: 2> 


Uai JajjaiJ' 





(SETQ XX(SSGET (LIST (CONS "LINE")))) 



polar ^1^1 • 
jjj^it AiLui-all j 0.1 ■Su'jJ' j a a ^°'^: J^all li* ,J 

Command: (setq a (getpoint)) 
Command: (setq q (polar a 0.1 20)) 
(917.808 2660.4 0.0) 



assoc • 

^ <r jj association list J-"^-^ ^ 



Command: (setq country '((amrica israil) (almania itali) (iran turki) )) 
((AMRICA ISRAIL) (ALMANIA ITALI) (IRAN TURKI)) 

Command: (assoc 'amrica country) 
(AMRICA ISRAIL) 



Command: (assoc 'utobia country) 
nil 



AND UUI • 

nil ^ nJaaJ 4 <l 13 4j jjjJ Ijll 



Command: (setq a 103 b nil c "string") 
"string" 

Command: (and 1.4 a c) 
T 
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Command: (and 1.4 a b c) 
nil 



Command: (and a) 
T 

Command: (and w) 
Nil 

Command: (AND 5) 
T 



arx ^ • 

AutoCAD Runtime Extension 



Command: (arx) 

("acapp.arx" "accamera.arx" "acdblclkedit.arx" "acdblclkeditpe.arx" "acdim.arx" 
"acdwgrecovery.arx" "acdxnotify.arx" "aceplotx.arx" "acetlodr.arx" 
"acetutil.arx" "acgsconfig.arx" "achapil7.dbx" "achlnkui.arx" "acidropmgr.arx" 
"acismobjl7.dbx" "acismui.arx" "aclayerp.arx" "acmgd.dll" "acpltstamp.arx" 
"acprevinput.arx" "acsecopt.arx" "acsign.arx" "acspacetrans.arx" "acstd.arx" 
"actaskbar.arx" "actp.arx" "acxrefesw.arx" "acxrefservice.arx" "movebak.arx" 
"oleaprot.arx" "vl.arx" "whohas.arx" "wscommcntraccon.arx") 





arxload ^ • 




arxload d^=^ 


Command: (arxload anyfile.arx) 



Command: (arxload "c:/program files/AutoCAD 2007/anyfile.arx") 



arxunload • 
arx ( — ii-* J.i'"^'' 

Command: (arxunload anyfile) 

boundp • 
nil (jj^j ^jUI a-oj3 C5 Jc. ^j'^j V (jlS li! La! 

Command: (setq x 13 y nil) 
nil 

Command: (boundp 'x) 
T 

Command: (boundp 'y) 
nil 



AjLjjiJI if <JUI • 
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i a 1'* 11 sLlujII AjjAa 



Command: (if (-1= ij£=4; ^ ^ j^- 1 iiii».)(Ja tjLaj lil diia. ) ( J= _>ill)) 
IF (YOU UNDERSTAND ANY THING) ,( MEET ME) 



Command: (setq z 1) 

Command: (if (< z 3) (alert"islamna")) 



Command: (setq e (getint)) 

Command: (if (< e 20) (princ "e is less than 20") (princ "e is not less 20")) 
e is not less 20"e is not less 20" 

- laJiuill (j^i ii.U JJ*J-a LlLijl (J j^l jU, 
(j« jTinl Ajlajl jcill sijl!" ^JLuiJ J$Jal (jJ^^C. (j-a (J3I - 14.',,, Jl Aik^l (cill aljll jlS lil ^LiJI ji-imll 
"tjjj »V- (j-a ^>J^I AjLi.^1 (fiill jaijjll" AJLujj Jgil (jjj i nr. (j-o ^>j£l j»3^>ll (jlS lil j "jjjjjic 

Command: (SETQ A (GETINT)) 
Command: (SETQ B (GETINT)) 
Command: (if (= a b) (setq b 5 (setq b 6)) 

A,B U^H*-"^ ts^J (J^-^ * ^AuLttll (j^i ■ ■ lliaj jLill j (J jVI __)Jajai3l 
5 ^g-jUill jjiiail 4-ajij (J»7»lj (jjjjLuiLa (jjjjixall (a^aj3 llul£ Ijll Clllliill jU, Jl 
6 J^ _jJ*i»ll 4-aJ9 (J*?^ (jjJjLulio l^cjjfL) J. Ijll j 



Repeat • 

Clll^all (jJ*-o JAC 4 'j» a 4jLaC jl^)^J 

Command: (SETQ A 100) 

Command: (REPEAT 4 (SETQ A (+ A 10))) 

140 

jjilall Jl 10 AiLjal AjIaC jlj^JJ LLaij (jjljll j^.nll (J 

While • 

" JJJLall L^i Ja. <j| jaJI Aljxji ,J jn'ml" 

" jg /Ml ^Jj ( _ s 2a. e_lL«JI J jn'ml" 

Command: (while jty 
(^-oLjJI Uiaiioi Jill _^l j^l)) 



Command: (setq a 1) 
Command: (while (< a 20) 
(princ a) 
(princ "\n") 
(setq a (+ 1 a))) 



jjxiall 4-ajij j (J jU, Jl 
jjii (J131I jkJI 
jjiiaJI AjLi^J a^alj IjA j ^--aLj^jll ^)-al jl £jl^>ll J ClllLill 

\ jl\ .1) jj __yxiall (_^aLa 11 ^Jauill 
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(princ "\n") 

^JUl! ^LJ! ^Jc <0£IL ?j 5j j (terpri) J 



acad_strlsort 4Jta • 



Command: (setq mont '("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" 
"Sep" "Oct" "Nov" "Dec")) 

("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" 
"Dec") 

Command: (acad_strlsort mont) 

("Apr" "Aug" "Dec" "Feb" "Jan" "Jul" "Jun" "Mar" "May" "Nov" "Oct" 
"Sep") 



vl-file-delete^ • 
jL^I <_i&j V SUPPORT <-»k (j u 1 ^ ^ j ^ 



(vl- file -delete "newauto.bat") 
( vl-file-delete "c.Vnewauto.bat") 



ACAD_COLORDLG • 

3 j' jA ( _ 5 J-bl jja^l jjlll Ulxa. Jllall IjlA ,J j jjj Ifrla jlikj sislj cdJa«J <5b 



Command: (ACAD_COLORDLG 3) 



Command: (SETQ Q( AC AD_C OLORDLG 3) 
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DCL 

jj_>M j>a ^ DCL ' — aLa (Jj^il j 
i£ jj^I CjUL jLuuJI AiLil jl SUPPORT J ^UL> J DCL «— il-At JjV! 

DCL <— ai-a *Ic.jU ^IjI! 



(("setq Dcl_Id% (load_dialog "MyDialogs.dcl) 



MyFirst : dialog { 
label = " Hello World"; 
spacer; 
: text { 

label = "This is my first dialog, 
alignment = centered; 

} 

spacer; 
ok_only; 
} //MyFirst 



(%defun c:MyFirst (/ Dcl_Id) 
(princ "\nMyFirst") (princ) 

<5 J t jj» 1 I 1 I L J_>_aJt_i 1 i 

(("setq Dcl_Id% (load_dialog "MyDialogs.dcl) 
(%new_dialog "MyFirst" Dcl_Id) 
Dialog Actions i 
( start_dialog) 

( %unload_dialog Dcl_Id) 
(princ ) 

defun c:MyFirsts ( 



MYFIRST 

2<J 





29 



WWW.AMRSELIM.NET ^ ^-^1 fL- J ^ 



Command: ( command "_chprop" "all" color" "7 ) 

( command i^jj^l jJjl t>> j*! AJa«im Uj| g^U ^>JI pie! 
"_chprop" oojU^aJ! jjij j*\ 
"all" p^ L^kl l JS j^u jUii.1 

JaSa ^jj^jt jjlll jjij] last j! 

"color" ^j^jU. jj^j jUi=-! 
"7" o^^ 1 uj 151 j^j 1 ^ 1 
"") jLkjVI jj-ki.^ 

'j» a <JiJa ^^Ac ^^jll ^)j-aljaJI (jjl JJ*J .2 

Command: (command "layer" "color" "7" "hvac ) 
(command ^jjV! j*\J t>« j*\ in Us! jJ! pie I 
"layer" v^laJJI jJ 
"color" uj^' V- 3 ^- j^-l 
"7" o^^ 1 uj 11 ' J 1 ^ 1 
"hvac" ^=11 jUi^l 
"") JUaY! jjJoi^ 

j** g^j .3 

Command: (setq a (getpoint)) 
Command: (setq b (getpoint)) 
Command: (command "line" ab "") 

<Li/>_jL«-aJ (Jj laJ i " a f-w^y tUUJ! ^Jajqill 

JUoV! jji^i-^^J*-^ "" j 

Command: (setq a (getpoint)) 
Command: (setq b (getpoint)) 
Command: (command "rectangle" a b) 

(Jj laJ i " a j»-ui^)l (_J^)^! <ij^)Ja .5 



Command: (setq a (getpoint a)) 
Command: (setq b (getcorner a)) 
Command: (setq c (list (car b)(cadr a))) 
Command: (setq d (list (car a)(cadr b))) 
Command: (command "line" a c b d a "") 



JjVI AiSjll ^Je *Uj (B 4-kail!) jul=J ^Ul! jkuJI 
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'"'I il ■ all jj^ a If- Igjtl j^i J jVI 
laajll (jjj Ja jlai. £}J>^ j^jj jjjmlaJI ^Jamll 



Command: (command "rectangle" "_width" "2" "0,0" "10,10") 

"10,10" "0,0" LaA (jjlo jjla-a j 2 (jjlalu^ jxujjj l-Ua 



Command: (setq a (getpoint)) 
Command: (command "circle" a 200) 

circle Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 
Specify radius of circle or [Diameter]: 200 



(command ^jpVI _>»ljl i>> _>*l 4 jU» im Ujl jJI 
"circle" '° jj^ ^ j 

200( jJaSlli-k— j 

bind J*c- Ajc .8 



(DEFUN C:EN() 

Command: (command "tilemode" 0) 
(COMMAND "ZOOM""E") 
(command "audit" "y") 

(setvar "bindtype" 1) 

(command "-xref" "b" "*") 
(COMMAND "PURGE" "ALL" " * " "N") 
(COMMAND " QS A VE " ) 
(COMMAND "CLOSE") 
) 



(DEFUN C:EN() ^j>i *JUI 

Command: (command "tilemode" 0) layout ^ Jj>=^I 
(COMMAND "ZOOM""E") r jjj 

(command "audit" "y") audit lW- 

(setvar "bindtype" 1) £ ji 

(command "-xref" "b" "*") bind j*1 
(COMMAND "PURGE""ALL""*""N") ^ jffl 
(COMMAND"QSAVE") 
(COMMAND"CLOSE") ipltl 

) o^jall (jlc. 
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^Jj' J J 200 g^lijjl J liLuJ 2 laajj (j^aj 



Command: (SETQ A (GETPOINT)) 
(278.852 53.9469 0.0) 

Command: (COMMAND "TEXT" A "200" "0" "AMRSELIM" ) 



t_yai jl jjij .10 



(defun C:chtext (/ a ts n index bl b c d b2) 
(setq a (ssget)) 

(setq ts (getreal "\nEnter new text size")) 
(setq n (sslength a)) 
(setq index 0) 
(repeat n 

(setq bl (entget (ssname a index))) 

(setq index (1+ index)) 

(setq b (assoc Obi)) 

(if (= "TEXT" (cdr b)) 

(progn 

(setq c (assoc 40 bl)) 
(setq d (cons (car c) ts)) 
(setq b2 (subst d c bl)) 
(entmod b2)))) 
(princ) 
) 
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c^ 1 


REAL OR FLOAT 


5-j2.3 j2 lP* r \S jl 


INTEGER 


AjjJic. |>\3 jl (jj^j 3j6j5 Aj^j-a j 

32768- 32767 i> j 


LIST 


(6 5 2 14 8) 


string 




symbol 


point >-aic 







(del (dialog component defined j lisp 

j;Loi<j ^E-aU DCL&Lisp Generator • 
http://www.beowolftech.com/lispgen/home.html 



autolisp e^j e*l 



• www.amrselim.net 

• http ://w w w . afralisp .net/ 

• http://www.cadtutor.net 



http : //www.j eff eryp s ander s . com/autoli sp . html 
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LISP jfr^l 



add.lsp 



ALLUNITS 



AntiRot.VLX 

AUTOLABEL.VLX 

barea 

bd 

BreakAII 
bylaybk.lsp 

CAR.LSP 



CASE.LSP 

circle2pl 

clipcopy 

CNT 

EBLIsp 

EN.Isp 

epts.LSP 

EXDWG.LSP 

flex 

inch-cm. Isp 
INSORT 
layerhtm 
II. Isp 

LLN.LSP 

openbak.lsp 

PEND.LSP 

prefix 

RBL.LSP 

RF.Isp 

SAVEA.LSP 

WBA.LSP 

wblockm.lsp 

WPIPE.LSP 



fSjIt ^glc jail j»j tSJLaJI jIxuj j-ii ^Sjll (Jli^V^ j j 

1(Ja»JI ftlla all (jjiUall Clil.la.j Jjjj tjjj--''^ (jl) ^"^J t_J^ (J- ^^)^ ^ 

4 al3a all (jJiUSlI Cjlda.j ^ Jjjajll Ajlj^uiII ALLUNITS j^ ^ 

dillj t_JS t^LljjJI 'ujj^ ( f a (AaUjj-*1I tJjJall i^ojll l^W* i — jI-^-j) 

^Jajjj ^1 cjjj^"^ 4j1ac <jt AajI all ftjflll jJj-ali j 4jJj1321I jlSijSjl j-oljl 

/ojujLlo j«IjV^ 

^ilil3 
^t. CaSill 

^Jaliill JalSj (J tSllj j ^jJaUlall Ja >laaJl (J ^JaS djha.1 
jj^I Jjl til jLSI Jjl J*^J 

Ajij^j-o 4 aJLU ^ oa jj ^9 ^JlS^SVI uta ( J > ua j ^-oUjjII ^^sj 

L_ljiixaJI (JSJill (Jja. P0lylin6 ^J^* - ^ ^^xlo c.l_JdjL ' " Ua ( ■ )1 uiail 

i ^ It < » > p. j^ 0^ _P a ^3 j'"^ jQ l s*\ 1 ^ 4 \o'i l ,i ^ 4 q > \-t \ 4Ii^Lm»o 

(J lc.j ^£xaluJ tJ£ uS j 4 1 ^a^ll 4 ul£*al £-0 tj-aill ^^J^V ^E-oljjjll 

POLYLINE «l cfej^ 
AUDIT, BIND, LAYOUT ZOOM, SAVE' 

S^a.|j ^jujjII ^fl ja. jaII Point ^a^ill 

AjIIaII ^.jlll j^ic t __^a^)*ILuiAJI ^!ia 

FLEX r-ji 
.Polylines Jajiaa. 

a j^jLlo BAK ^ \;g II ^ jJj' CliULo ^J9 

jlill J^JJ 

diLo^j-ujll 4 ual Ua.1 ^L_uij c.Luii! 

«Ui^aala jl ^1 ^ jlll til (JS jj. a > <a!2 

t o 1 ^J-«jl 
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defun c:^i HO 




atof 


yjjia. j (jll (>oj3l Jjj^il 




zerop 


V (.1 ji— gSLslI Ja JStoll 


atoi 


(j«jjp j (jll (j-aill Jjj^il 




exp 


-U^VI 4-<us]l (j^*3 


rtos 


ls^ jl' tiij^l 




~ 




cvunit 


(5 jiJ o^.j (jll o^.j (_j-o Jj 


ill 


MAX 


j^V! jJS jll 


TYPE 


^uLLall 1 '';1^»'' 




MIN 


J» >^VI aSjll 


princ 


^aljVI JJam (jlc 4jLuij jlfris 


1 


REM 


4 aj-uflll <j>a ■ SVl^M 


ALERT 






FIX 




COMMAND 


jIS j^VI j-ljl plitV 




FLOAT 


jj-uS" ^11 AAxll Jj^J 


LOAD 


lJlLo (Jxaaul 




LOG 


aJjjC. jlll jL&jI 


setq 


j-ixlLal AiAaj 




SORT 


ls* J ' j'^l J-^aJl 


getpoint 






sin 


AjjI jll La. 


getdist 


( jjllaij AiL_u-all Aj^a-al a-laJ 


mj 


cos 


AjjI jll Lia. 


distance 


JjjjJaflj ( j : iJ AiL-u-all 43^)*-g1 a^a^ 




atan 


AjjI jll 


getint 


a laJ 1 UAJl (j-0 ^ ^ ' 1^5^" Jj-* 1 




angle 


4jj| jll 


getreal 


j^iS jl gja > ^-1 j ^1 Ls ic Jj*- 




minusp 


V al ^aILu, ^-k^l a<j jll 


getstring 




11 


inters 




ascii 


^jj^ll C5 ^VI pLLcl 




/= 


(_5jLulJ V 


chr 


^Vl ^ jl JjlLall L_i j^ll pLL 


d 


eq 


V f 1 {jJJjLi-ulLa JjjSlulluUl 


atom 


^ ai iji t j <i*jA»j4 ^is lii nil L 




equal 




eval 




aJ 


SUBSTR 


4 J^*' *Uj_u1j_m ^j»a L_ija.VI (j-* (jjJt-o A-lt jl^JaV 


quote 






strcat 


0-la.lj aIa^. (jjjLta. a > <aJ 


setvar 


aI£ jjVI jj*1o1 '*-aja pUaC-l 




car 


«UjjJLuJI a3j (Jjl JO 


getvar 


Al£ jjVI JJ*1o ^-o-}3 ^s^C- J J'-"' 


Jl 


cadr 


AIuiIuiJI ^3 aSj ( _^JC 


entlast 


j 1 aj& ^i-l (jC CllLjLiJ Liiiaaj 




caddr 


aIuAxmII a^j tialu q^zjc 


ssget 






cdr 


(JjVI ^J^l UJ"^ ^ (jifljt 


polar 


4jjI jll j t_5^p>.l ^ iaflj ^gic pLii <ia 




nth 


<j»as^ll *LL_iiLi_iiH (j4*-° 1 jj " < ~- ^_jJa^)C 


AND 


V |»l A^ajS 4-1 ^gJaa-el! jl ^ulIa 


SI 


cons 


<LajUll JjV j-^' ,r - AiLuial 


arx 


1 ill A \ ^ A\ 'JtfX f ' * ' "1 ' 


J 


apply 


4_i9jaJI aIlcIuiII j^lc A U * 4JIa Aiall 


arxload 


arxload 




append 


oA^lj AIloLuj ^ 9 4 >^q^j\l (jjbjj^LjkJill r - ' '■*•»' 


arxunload 


arx ^-*Lo pUJV 




reverse 


4_La3^1l Alj-cLuill (_j"^ f "- 


boundp 


V 4-aj3 ^1<*- j > ala 11 jSa 1 ^ 


> 


listp 


V aI 4-ia9j aL_oL_u ^gJax-all jj-«aj*JI (Ja 


if 


^-ic -la jH 




strlen 


4laaJI L-ij^p*. J Ac 


Repeat 


dll^-all ^j-a ^j±«-a AAc *Llia-a 4 llaC- 


jljS 




jj-a ( LuliIjjVI ^J- 1 -" ' *Li£ J^^ 1 ^jjill 


While 


( j ; ia-a CllAa. Aa j | ^''*- La ^-lu 


xil 


www.amrselim.net 


acad strlsort 


1 lAa ;l Li2jj A-ia^aJI tJ^j^LuJI ji 





uj^j lil j « AUTOLISP H^ l^JJ^' Jj' J*- t ^ ^ cjaaj jjSI jl ^1 (.tiaJI ^ 

ljj£JLa A^li-al jl i ^'mlr-lj Uai. 

J*i ji, a^MvsI j cJif Ji^ j^j Lk^ U L«j 
^UsjSlI J^t (j-* lij lii ^L^^lj jjL*Jl Jsyio ( j5^J 



35 



viJ-iw^ jjjLajl i^_~iS\_« (j ^t-^j-^ 



/http://newmilk.wordpress.com/about 
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